   1 .
   2 .
   3 .** + COLOR,ETC LATER
   5 clear 
   6 .S.KENDALL * JAN.1,1982
   7 .PROG AFTER LOADING DIM box 'S BY MATT GIWER
   8 .
   9 .TRIANGLES & BOXES
 690 X=0;Y=0
 700 A=11;B=11
 710 for M=1to 4
 720 X=X+1;Y=Y+1
 728 for N=1to 10
 730 C=rnd (8)-4
 740 G=0;H=0
 750 for V=1to 20
 760 G=G+X;H=H+Y
 770 box (A-C),(B-C),H,H,3
 775 box (-A-C),(B-C),G,G,3
 780 box (-A-C),(-B-C),H,H,3
 785 box (A-C),(-B-C),G,G,3
 810 next V
 820 next N
 830 clear 
 840 next M
>:return 